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البحث عن نص او كلمة 


للبدا قم باضافة العناصر التالية 
-memo‏ 
-edit‏ 


-button 


procedure TForml .EuttonlCclick (Sender: Tobject)} ; 
War Ppo3n, posl,1, 1:integer; 
trouy : boolean? 

begin 

trouv:= false; 

For i:= Û to memo1.Lines.count do 
begin 

posl:= pos [(edit1.Text, memo1. Lines [i]}: 
if poslzt» Ûû then 

begin 

posm:= Û F; 

Tor j:= Û to 1 - 1 de 

posm:= posm + length (menmo1.Lines[]] }?; 
posam:= posm+t (i *2}; 

pasam := posm + paosl = 1 ¢; 
memnoi1 . SetFocuz 7 

mMEeEmo1 . SELSTtart:= posnm:? 
memo1l1.sellength:= length (eEdit1. Text} ; 
trouy:= true; 

meszsaqgqebeep (OY ; 

break? 


end; 

end; 

if trouy = false then 

showmesszage ("Ie mot rechercher est introuvable'" } ; 
messagebeep (0) ; 

end; 


الان قم بتجريب البرنامج 
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لاي اتصال او استفسار 


Delphi.7@live.fr 


